OpenEdge Application Server:<br />Developing WebSpeed Applications Passing parameters

escript4.htm
<HTML> <HEAD> `<SCRIPT LANGUAGE="SpeedScript">`/* `Pass in the filter.` */ `DEFINE INPUT PARAMETER p_filter AS CHARACTER NO-UNDO.` `</SCRIPT>` <TITLE>My Third Embedded SpeedScript File</TITLE> </HEAD> <BODY> <H1>My Third Embedded SpeedScript File</H1> <CENTER> <H2>Table for name matching `‘p_filter‘`</H2> <TABLE BORDER="2"> `<!--WSS FOR EACH Customer WHERE Name BEGINS p_filter: -->`<TR><TD> `‘Cust-num‘` </TD><TD> `‘Name‘` </TD><TD> `‘Phone‘` </TD></TR> `<!--WSS END. -->`</TABLE> </CENTER> </BODY> </HTML>

<HTML>
<HEAD>
<SCRIPT LANGUAGE="SpeedScript">
/* Pass in the filter. */
DEFINE INPUT PARAMETER p_filter AS CHARACTER NO-UNDO. 
</SCRIPT> 
<TITLE>My Third Embedded SpeedScript File</TITLE>
</HEAD>
<BODY>
<H1>My Third Embedded SpeedScript File</H1>
<CENTER>
<H2>Table for name matching ‘p_filter‘</H2>
<TABLE BORDER="2">
<!--WSS FOR EACH Customer WHERE Name BEGINS p_filter: -->
<TR><TD> ‘Cust-num‘ </TD><TD> ‘Name‘ </TD><TD> ‘Phone‘ </TD></TR>
<!--WSS END. -->
</TABLE>
</CENTER>
</BODY>
</HTML>

You call the Web object generated for this embedded SpeedScript file from another Web object or procedure, passing the parameter value in a RUN statement: